home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00007_main icons.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  1.4 KB  |  50 lines
  1. property ancestor, pButtonName, pBlankMov
  2.  
  3. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  4.   if objectp(descendant) then
  5.     ancestor = new(script("locking button"), buttonName, castName, theChannel, theStageLoc, descendant)
  6.   else
  7.     ancestor = new(script("locking button"), buttonName, castName, theChannel, theStageLoc, me)
  8.   end if
  9.   pButtonName = buttonName
  10.   pBlankMov = member("Blank2.mov")
  11.   return me
  12. end
  13.  
  14. on performFunction me
  15.   global IconList1, audioPath
  16.   sound stop 1
  17.   sound stop 2
  18.   puppetSound(0)
  19.   updateStage()
  20.   repeat with X = 6 to 13
  21.     if not (X = the rollOver) then
  22.       iconObj = getaProp(IconList1, X)
  23.       simulateClickOff(iconObj)
  24.     end if
  25.   end repeat
  26.   xSprite = 15
  27.   set the puppet of sprite xSprite to 1
  28.   set the member of sprite xSprite to pBlankMov
  29.   set the loc of sprite 15 to point(-999, -999)
  30.   updateStage()
  31.   xMember = member(pButtonName & ".window")
  32.   set the member of sprite 15 to xMember
  33.   set the loc of sprite 15 to point(316, 195)
  34.   if member(xMember).type = #bitmap then
  35.     sound playFile 1, audioPath & pButtonName & ".AIF"
  36.   end if
  37.   updateStage()
  38. end
  39.  
  40. on performUpFunction me
  41.   sound stop 1
  42.   set the puppet of sprite 15 to 1
  43.   xMember = the member of sprite 15
  44.   if member(xMember).type = #digitalVideo then
  45.     set the member of sprite 15 to pBlankMov
  46.   end if
  47.   set the loc of sprite 15 to point(-999, -999)
  48.   return me
  49. end
  50.